home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 7 (Internal Edition) / Apple R&P Lib Internal v7.0.iso / 5-Fonts & Software / Macintosh Yellow Pages 2.0 / Macintosh Yellow Pages 2.0 / card_33466.txt < prev    next >
Text File  |  1991-03-12  |  8KB  |  350 lines
  1. -- card: 33466 from stack: in.0
  2. -- bmap block id: 33640
  3. -- flags: 4000
  4. -- background id: 31331
  5. -- name: Publicity
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set the userModify to true
  9.   put the date into bkgnd field "Page Number"
  10.  
  11.   global userInfo
  12.   put userInfo into card field "Address"
  13.  
  14.   click at 485,162
  15. end openCard
  16.  
  17. on help
  18.   send mouseUp to card button "Help"
  19. end help
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=25 top=49 right=146 bottom=264
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part 2 (field)
  37. -- low flags: 01
  38. -- high flags: 2001
  39. -- rect: left=281 top=50 right=135 bottom=490
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 10
  45. -- style flags: 0
  46. -- line height: 13
  47. -- part name: 
  48.  
  49.  
  50. -- part 6 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=316 top=143 right=276 bottom=492
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 20
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 22
  61. -- part name: Address
  62. ----- HyperTalk script -----
  63. on closeField
  64.   if card field "Address" is not empty then
  65.     global userInfo
  66.     put card field "Address" into userInfo
  67.   end if
  68. end closeField
  69.  
  70.  
  71. -- part 8 (button)
  72. -- low flags: 00
  73. -- high flags: 2000
  74. -- rect: left=12 top=305 right=337 bottom=48
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Help
  83. ----- HyperTalk script -----
  84. on mouseDown
  85.   play stop
  86.   play harpsichord a7e
  87. end mouseDown
  88.  
  89. on mouseUp
  90.   answer "Fill in this page, print it, then FAX or mail." with "OK"
  91.   global startTime
  92.   put the seconds into startTime
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 11 (field)
  98. -- low flags: 01
  99. -- high flags: 2000
  100. -- rect: left=281 top=50 right=135 bottom=484
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 3
  105. -- text size: 10
  106. -- style flags: 256
  107. -- line height: 13
  108. -- part name: 
  109.  
  110.  
  111. -- part 12 (button)
  112. -- low flags: 00
  113. -- high flags: 8006
  114. -- rect: left=138 top=151 right=165 bottom=263
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 3
  119. -- text size: 10
  120. -- style flags: 0
  121. -- line height: 13
  122. -- part name: 3 Issues
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   set the hilite of me to true
  126.   set the hilite of card button "6 Issues" to false
  127.   set the hilite of card button "12 Issues" to false
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 14 (button)
  133. -- low flags: 00
  134. -- high flags: 8006
  135. -- rect: left=138 top=166 right=180 bottom=263
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 3
  140. -- text size: 10
  141. -- style flags: 0
  142. -- line height: 13
  143. -- part name: 6 Issues
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   set the hilite of me to true
  147.   set the hilite of card button "3 Issues" to false
  148.   set the hilite of card button "12 Issues" to false
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 15 (button)
  154. -- low flags: 00
  155. -- high flags: C006
  156. -- rect: left=138 top=181 right=195 bottom=263
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 3
  161. -- text size: 10
  162. -- style flags: 0
  163. -- line height: 13
  164. -- part name: 12 Issues
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   set the hilite of me to true
  168.   set the hilite of card button "3 Issues" to false
  169.   set the hilite of card button "6 Issues" to false
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 17 (button)
  175. -- low flags: 00
  176. -- high flags: C006
  177. -- rect: left=45 top=204 right=218 bottom=129
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 3
  182. -- text size: 10
  183. -- style flags: 0
  184. -- line height: 13
  185. -- part name: Bill me later
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   show card button "Step 3 Cover"
  189.   set the hilite of me to true
  190.   set the hilite of card button "Check Enclosed" to false
  191.   set the hilite of card button "Charge to my credit card" to false
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 18 (button)
  197. -- low flags: 00
  198. -- high flags: 8006
  199. -- rect: left=132 top=204 right=218 bottom=224
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 3
  204. -- text size: 10
  205. -- style flags: 0
  206. -- line height: 13
  207. -- part name: Check enclosed
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   show card button "Step 3 Cover"
  211.   set the hilite of me to true
  212.   set the hilite of card button "Bill me later" to false
  213.   set the hilite of card button "Charge to my credit card" to false
  214. end mouseUp
  215.  
  216.  
  217. -- part 19 (button)
  218. -- low flags: 00
  219. -- high flags: 8006
  220. -- rect: left=45 top=219 right=236 bottom=235
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 3
  225. -- text size: 10
  226. -- style flags: 0
  227. -- line height: 13
  228. -- part name: Charge to my credit card
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   hide card button "Step 3 Cover"
  232.   set the hilite of me to true
  233.   set the hilite of card button "Check Enclosed" to false
  234.   set the hilite of card button "Bill me later" to false
  235.   click at 187,271
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 20 (button)
  241. -- low flags: 00
  242. -- high flags: C006
  243. -- rect: left=45 top=244 right=258 bottom=95
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 3
  248. -- text size: 10
  249. -- style flags: 0
  250. -- line height: 13
  251. -- part name: Visa
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   set the hilite of me to true
  255.   set the hilite of card button "MasterCard" to false
  256.   click at 187,271
  257. end mouseUp
  258.  
  259.  
  260.  
  261. -- part 21 (button)
  262. -- low flags: 00
  263. -- high flags: 8006
  264. -- rect: left=96 top=244 right=258 bottom=193
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 1
  268. -- font id: 3
  269. -- text size: 10
  270. -- style flags: 0
  271. -- line height: 13
  272. -- part name: MasterCard
  273. ----- HyperTalk script -----
  274. on mouseUp
  275.   set the hilite of me to true
  276.   set the hilite of card button "Visa" to false
  277.   click at 187,271
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 22 (field)
  283. -- low flags: 00
  284. -- high flags: 0002
  285. -- rect: left=47 top=262 right=277 bottom=191
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 3
  290. -- text size: 10
  291. -- style flags: 0
  292. -- line height: 13
  293. -- part name: 
  294.  
  295.  
  296. -- part 27 (field)
  297. -- low flags: 00
  298. -- high flags: 0002
  299. -- rect: left=209 top=262 right=277 bottom=264
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 0
  303. -- font id: 3
  304. -- text size: 10
  305. -- style flags: 0
  306. -- line height: 13
  307. -- part name: 
  308.  
  309.  
  310. -- part 28 (button)
  311. -- low flags: 00
  312. -- high flags: 0001
  313. -- rect: left=24 top=244 right=278 bottom=272
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 0
  318. -- text size: 12
  319. -- style flags: 0
  320. -- line height: 16
  321. -- part name: Step 3 Cover
  322.  
  323.  
  324. -- part contents for card part 3
  325. ----- text -----
  326. Macintosh Yellow Pages is continuously updated to   ensure   that   you   always   have   the  most accurate information.   Become  a subscriber; a new issue  of  the  Macintosh Yellow Pages  will come to your desk as soon as new information is compiled  and  released.  Subscribe  today.   You can even order by FAX!   
  327.  
  328.  
  329. -- part contents for card part 2
  330. ----- text -----
  331.  
  332. (617) 577-9541
  333.  
  334. Macintosh Yellow Pages
  335. Kendall Square, P.O. Box 23
  336. Cambridge,  MA   02142
  337.  
  338. -- part contents for background part 13
  339. ----- text -----
  340. SUBSCRIPTION
  341.  
  342. -- part contents for card part 11
  343. ----- text -----
  344. PRINT THIS PAGE AND FAX TO:
  345.  
  346. OR MAIL TO:
  347.  
  348. -- part contents for background part 22
  349. ----- text -----
  350. 2/3/91